function [f,m]=read_101_force(dir)
fid1=fopen([dir,'.f06'],'r');
while feof(fid1)==0
    tline1=fgetl(fid1); 
    matches1=strfind(tline1,'S I N G L E - P O I N T');
    if length(matches1)==1
        for i=1:3
            tline1=fgetl(fid1);
        end
        f=sscanf(tline1(54:72),'%f');
        m=sscanf(tline1(86:102),'%f');
        tline1=fgetl(fid1);
        f=f+sscanf(tline1(56:72),'%f');
        fclose(fid1);
        break
    end
end
end